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MODULE OTSSSTERM 


BEGIN 


loa 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE iS A gt te UNDER A LICENSE AND MAY BE USED AND cortee 
!* ONLY IN oe DANCE WITH THE TERMS OF SUCH aint AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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t 
ie TRANSFERRED. * 
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® 
+ 
® 
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® 
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is phe gt ty phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Hd SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Hi CORPORATION. 

ITY FOR THE USE OR RELIABILITY OF ITS 


ie DIGITAL ASSUMES NO RESPONS y 
C NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: Language independent, I/0 support 
ABSTRACT: 


This module contains a routine which tests the currentl 
Syeqetending 1/0, and reports whether it is to a termina 
) 
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' 
i 
i 
i 
i 
i 
i 
i This function is used b y BASIC error processing, since 
3 i some 1/0 errors are processed differently if the 1/0 device 
is a terminal. 
4 ENVIRONMENT: VAX=11 User Mode | 
Ope AUTHOR: John Sauter, CREATION DATE: 06-APR-1979 
904 MODIFIED BY: 
004 i 1-001 = Original. JBS 06-APR-1979 
ope i 1-002 = Change name to OTSSSTERM_I10. JBS 26-JUL-1979 
005 | 
005 ! <BLF /PAGE> 


5 
OTSSSTERH_10 ifcgeortoge 01-9540 pane OLieacte y4soe7eg, | Page 2. 


: 3 g 1! ; 
; & 1 ! SWITCHES: H 
; oe sy | 
; ; 036 ! SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); : 
; ; 
3 9 038 1 ! : 
; 60 82 1 ! LINKAGES: 3 
a >| 60 1! ; 
; 6¢ 061 1 ; 
Fz 0062 1 REQUIRE 'RTLIN:OTSLNK'; ! Detine Linkages | 
> «664 B23) 1 : 
3; 65 496 1! ’ 
: 66 0495 1 ! TABLE OF CONTENTS: : 
; Of 04946 1! : 
; «68 0495 1 $ 
; ww? peee 1 FORWARD ROUTINE : 
: 70 0497 1 OTSS$TERM_I0; ! Test for terminal 1/0 : 
: 2 0499 1! | ; 
; 7 0500 1 ! INCLUDE FILES: : 
ae 0501 1 | | 
gh. 0508 1 
; ug b203 : REQUIRE ‘RTLML:OTSLUB'; ! Get LUB definitions ‘ 
3 4 yee : REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects : 
: 80 0740 1 LIBRARY *RTLSTARLE*; ! System symbols 
an 741 J | 
: 8 2544 1! 
: 8 074 1 ! MACROS: 
: 84 0744 1! 
FH 85 0745 1! NONE 
; 86 pes 1! 
; 87 074 1 ! EQUATED SYMBOLS: 
; 688 0748 1! 
; 89 0749 1! NONE 
; 0750 1! 
; 0751 1 ! PSECTS: 
=. O75¢ 1 | | 
; 4 EF : DECLARE _PSECTS (OTS); ! Declare psects for OTSS$ facility | 
; 0755 1 ! OWN STORAGE: 
5 39 P36 1 ! 
e* 7 ,; NONE 
; 738 1 ! 
3 99 75 1 ! EXTERNAL REFERENCES: 
; 100 760 1! 
: 101 761 #1 
; 198 76¢ | EXTERNAL | 
: 10 765 1 OTS$$A_CUR_LUB; ! Current logical unit block 
> 104 0764 1 

| 

j 

| 

| 

| 
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; 196 763 ! GLOBAL ROUTINE OTSSSTERM_IO = ! Test for terminal 1/0 

: 138 re 1 le4 

; 1% roe ! ; FUNCTIONAL DESCRIPTION: 

3 ne 176 ! Test to see if the current 1/0 is terminal 1/0. 
; 11 ak 1 ! FORMAL PARAMETERS: 
: (116 ies 3 

s 115 774~—(«1« NONE 

; 133 775 1! 

. vy ag 1 ! IMPLICIT INPUTS: 

; #118 777 (61 i 

: 1}? ore ! } OTSS$SA_CUR_LUB.ra The current logical unit block 

: 121 reo 1 ! IMPLICIT OUTPUTS: | 
3; 4% ¢ 0781 1! 
3; 1 4 1! NONE 
: 126 07 a 

3; 125 0784 1 ! ROUTINE VALUE: | 
; 126 0785 1 ! COMPLETION CODES: 

s ler 0786 1! 

s 128 0787 1! 0 = There is no current 1/0, or the current 1/0 is not 

; 12 14 1! to a terminal. 

: 130 789 1! 1 = The current I/0 is to a terminal. 
: 131 0790 1! 

3 13 0791 1 ! SIDE EFFECTS: 
BP Br 1! 
: «134 0795 1! NONE 
; 132 0794 1! 
3; «136 0795 1 !-- 

; (S7 0796 1 

; «#4138 0797 2 BEGIN 

3; «6139 0798 § 

; 140 0799 GLOBAL REGISTER 

3; «6141 0800 2 CCB = 11 : REF BLOCK C, BYTE); 

; Hp 0801 

; (14 4 '¢ | 
3 144 080 ! Load register CCB with the current LUB. We use register CCB instead 

3; «(145 0804 ' of a local in case a later version of this routine wishes to call 

; 146 0805 § ! some other routine, since the convention is to have the pointer | 
; >t ts to the current logical unit block in register CCB. | 
: 149 0808 CCB = .OTS$$A_CUR_LUB; 
; 150 0809 ! ‘ 
Tr 0810 ! If there is no current logical unit block, there is no 1/0 
; 136 pet : outstanding, and we return a FALSE indication. 

3: 6156 o818 

3 155 14 IF (.CCB EQLA 0) THEN RETURN (0); 

: 136 Bai? 

; 1 18 '¢ : ’ 

: 158 081 ! Otherwise we test the “‘terminal’’ bit in the LUB, which was set by 

; + 0819 OPEN based on the device type bits reported by VMS. 

: 161 1 0 

3 162 0 $ IF (.CCB CLUBSV_TERM_DEV]) THEN RETURN (1); 


-3er-remnD 
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RETURN (0); 
END; ! end of OTSSSTERM_10 


-TITLE OTSSSTERM_10 
IDENT \1-002\ 

-EXTRN OTS$$A_CUR_LUB 

-PSECT _OTSSCODE,NOWRT, SHR, PIC,2 


0800 00000 -ENTRY OTSSSTERM_IO, Save R11 
5B 000000006 00 00 00002 MOVL OTS$$A_CUR_LUB, CCB 
09 13 00009 BEQL 1 
04 FE 8 05 €1 00008 BBC #5, -2(CCB), 1$ 
5 01 dO Bate MOVL #1, RO 
04 0001 RET 
50 04 00014 1$: CLRL RO 
04 00016 RET 

; Routine Size: 23 bytes, Routine Base: _OTSSCODE + 0000 
: 166 0825 1 
: 167 0826 1 END ! end of module OTS$$TERM_I0 
: 168 0827 1 
: 169 0828 O ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: _OTSSCODE 23 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
SBia soc s: ape”, BP ae oat os ay Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:00.8 


COMMAND QUALIFIERS 


Page ; 
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OTSSSTERM_10 16-Sep AX-11 Bliss-32 v4.0-74 p 
2+ i 1orge8-1 38s 93:43:8 LIBRTL.SRCJOTSTERMIO.B32:1 ries 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$:OTSTERMIO/0BJ=08J$ : OTSTERMIO MSRC$:OTSTERMIO/UPDATE=(ENH$:OTSTERMIO 


; Size: 23 GBs. + 0 data bytes 
. ey Time: 00.1 

; (nm. eee 

; nes/CPU Min: 

; Pca Baa Be 39 8 
; spam Be, Used: 73 pages 
; Compilation Complete 
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